home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 301-325 / 325 / rexxhostlib / link.asm < prev    next >
Assembly Source File  |  1995-03-14  |  3KB  |  139 lines
  1. ****************************************************************************
  2. *
  3. *    This Amiga shared library is based on example source code
  4. *    written by Gary Samad & Bill Hawes. It also employs basic
  5. *    library concepts introduced by Jimm Mackraz (ELib) and
  6. *    Edwin Hoogerbeets (MkLib). This library was generated using
  7. *    a customized version of the MkLib utility.
  8. *
  9. ****************************************************************************
  10. *
  11. *    These are the library glue routines for the rexxhost.library,
  12. *    needs a change (see below) to assemble with any other assembler
  13. *    than the Manx 3.6a.
  14. *
  15. ****************************************************************************
  16.  
  17.     INCLUDE    'exec/types.i'
  18.     INCLUDE    'exec/nodes.i'
  19.     INCLUDE    'exec/libraries.i'
  20.  
  21.     LIBINIT
  22.     LIBDEF    _LVOCreateRexxHost
  23.     LIBDEF    _LVODeleteRexxHost
  24.     LIBDEF    _LVOSendRexxCommand
  25.     LIBDEF    _LVOFreeRexxCommand
  26.     LIBDEF    _LVOReplyRexxCommand
  27.     LIBDEF    _LVOGetRexxCommand
  28.     LIBDEF    _LVOGetRexxArg
  29.     LIBDEF    _LVOGetRexxResult1
  30.     LIBDEF    _LVOGetRexxResult2
  31.     LIBDEF    _LVOGetToken
  32.     LIBDEF    _LVOGetStringValue
  33.     LIBDEF    _LVOBuildValueString
  34.  
  35. Put    MACRO
  36.     MOVEM.L    D2-D7/A2-A5,Keep
  37.     ENDM
  38.  
  39. Get    MACRO
  40.     MOVEM.L    Keep,D2-D7/A2-A5
  41.     ENDM
  42.  
  43. ;    SECTION DATA    ; Manx doesn't understand it, remove the semicolon
  44.             ; above and delete the next line to assemble
  45.             ; it with Lattice, Masm, Cape, etc.
  46.     DSEG
  47.  
  48. Keep:
  49.     DCB.L    14
  50.  
  51.     SECTION CODE
  52.  
  53.     XREF    _RexxHostBase
  54.  
  55.     XDEF    _CreateRexxHost
  56.     XDEF    _DeleteRexxHost
  57.     XDEF    _SendRexxCommand
  58.     XDEF    _FreeRexxCommand
  59.     XDEF    _ReplyRexxCommand
  60.     XDEF    _GetRexxCommand
  61.     XDEF    _GetRexxArg
  62.     XDEF    _GetRexxResult1
  63.     XDEF    _GetRexxResult2
  64.     XDEF    _GetToken
  65.     XDEF    _GetStringValue
  66.     XDEF    _BuildValueString
  67.  
  68. _CreateRexxHost:
  69.     MOVE.L    4(SP),D0
  70.     MOVE.L    _RexxHostBase,A6
  71.     JMP    _LVOCreateRexxHost(A6)
  72.  
  73. _DeleteRexxHost:
  74.     MOVE.L    4(SP),D0
  75.     MOVE.L    _RexxHostBase,A6
  76.     JMP    _LVODeleteRexxHost(A6)
  77.  
  78. _SendRexxCommand:
  79.     MOVE.L    4(SP),D0
  80.     MOVE.L    8(SP),D1
  81.     MOVE.L    12(SP),A0
  82.     MOVE.L    16(SP),A1
  83.     MOVE.L    _RexxHostBase,A6
  84.     JMP    _LVOSendRexxCommand(A6)
  85.  
  86. _FreeRexxCommand:
  87.     MOVE.L    4(SP),D0
  88.     MOVE.L    _RexxHostBase,A6
  89.     JMP    _LVOFreeRexxCommand(A6)
  90.  
  91. _ReplyRexxCommand:
  92.     MOVE.L    4(SP),D0
  93.     MOVE.L    8(SP),D1
  94.     MOVE.L    12(SP),A0
  95.     MOVE.L    16(SP),A1
  96.     MOVE.L    _RexxHostBase,A6
  97.     JMP    _LVOReplyRexxCommand(A6)
  98.  
  99. _GetRexxCommand:
  100.     MOVE.L    4(SP),D0
  101.     MOVE.L    _RexxHostBase,A6
  102.     JMP    _LVOGetRexxCommand(A6)
  103.  
  104. _GetRexxArg:
  105.     MOVE.L    4(SP),D0
  106.     MOVE.L    _RexxHostBase,A6
  107.     JMP    _LVOGetRexxArg(A6)
  108.  
  109. _GetRexxResult1:
  110.     MOVE.L    4(SP),D0
  111.     MOVE.L    _RexxHostBase,A6
  112.     JMP    _LVOGetRexxResult1(A6)
  113.  
  114. _GetRexxResult2:
  115.     MOVE.L    4(SP),D0
  116.     MOVE.L    _RexxHostBase,A6
  117.     JMP    _LVOGetRexxResult2(A6)
  118.  
  119. _GetToken:
  120.     MOVE.L    4(SP),D0
  121.     MOVE.L    8(SP),D1
  122.     MOVE.L    12(SP),A0
  123.     MOVE.L    16(SP),A1
  124.     MOVE.L    _RexxHostBase,A6
  125.     JMP    _LVOGetToken(A6)
  126.  
  127. _GetStringValue:
  128.     MOVE.L    4(SP),D0
  129.     MOVE.L    _RexxHostBase,A6
  130.     JMP    _LVOGetStringValue(A6)
  131.  
  132. _BuildValueString:
  133.     MOVE.L    4(SP),D0
  134.     MOVE.L    8(SP),D1
  135.     MOVE.L    _RexxHostBase,A6
  136.     JMP    _LVOBuildValueString(A6)
  137.  
  138.     END
  139.